home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / 2.01 sources / Library-2.01 / Interfaces / Power.lisp < prev    next >
Encoding:
Text File  |  1993-09-16  |  3.8 KB  |  158 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :traps)             ; 
  3. ; Created: Sunday, January 6, 1991 at 10:54 PM
  4. ;     Power.p
  5. ;     Pascal Interface to the Macintosh Libraries
  6. ; 
  7. ;         Copyright Apple Computer, Inc.    1989-1990
  8. ;         All rights reserved
  9. ; 
  10.  
  11. ;;;;;;;;;;;;;
  12. ;
  13. ; Modification History
  14. ;
  15. ; 04/28/93 mwp Release
  16. ; 08/10/92 bill in _AOff & _Boff: "-#xNNN" -> "#x-NNN"
  17. ; ------------- 2.0
  18. ; 08/23/91 bill Remove some return specs in the call form
  19. ;
  20.  
  21. ; $IFC UNDEFINED UsingIncludes
  22. ; $SETC UsingIncludes := 0
  23. ; $ENDC
  24.  
  25. ; $IFC NOT UsingIncludes
  26.  
  27. ; $ENDC
  28.  
  29. ; $IFC UNDEFINED UsingPower
  30. ; $SETC UsingPower := 1
  31.  
  32. ; $I+
  33. ; $SETC PowerIncludes := UsingIncludes
  34. ; $SETC UsingIncludes := 1
  35. ; $IFC UNDEFINED UsingTypes
  36.  
  37. (require-interface 'TYPES)      ; $I $$Shell(PInterfaces)Types.p
  38. ; $ENDC
  39. ; $SETC UsingIncludes := PowerIncludes
  40.  
  41. ;  Bit positions for ModemByte 
  42. (defconstant $modemOnBit 0)
  43. (defconstant $ringWakeUpBit 2)
  44. (defconstant $modemInstalledBit 3)
  45. (defconstant $ringDetectBit 4)
  46. (defconstant $modemOnHookBit 5)
  47.  
  48. ;  masks for ModemByte 
  49. (defconstant $modemOnMask #x1)
  50. (defconstant $ringWakeUpMask #x4)
  51. (defconstant $modemInstalledMask #x8)
  52. (defconstant $ringDetectMask #x10)
  53. (defconstant $modemOnHookMask #x20)
  54.  
  55. ;  bit positions for BatteryByte 
  56. (defconstant $chargerConnBit 0)
  57. (defconstant $hiChargeBit 1)
  58. (defconstant $chargeOverFlowBit 2)
  59. (defconstant $batteryDeadBit 3)
  60. (defconstant $batteryLowBit 4)
  61. (defconstant $connChangedBit 5)
  62.  
  63. ;  masks for BatteryByte 
  64. (defconstant $chargerConnMask #x1)
  65. (defconstant $hiChargeMask #x2)
  66. (defconstant $chargeOverFlowMask #x4)
  67. (defconstant $batteryDeadMask #x8)
  68. (defconstant $batteryLowMask #x10)
  69. (defconstant $connChangedMask #x20)
  70.  
  71. ;  commands to SleepQRec sleepQProc 
  72. (defconstant $sleepRequest 1)
  73. (defconstant $sleepDemand 2)
  74. (defconstant $sleepWakeUp 3)
  75. (defconstant $sleepRevoke 4)
  76.  
  77. ;  SleepQRec.sleepQFlags 
  78. (defconstant $noCalls 1)
  79. (defconstant $noRequest 2)
  80.  
  81. (defconstant $slpQType 16)
  82. (defconstant $sleepQType 16)
  83.  
  84. (def-mactype :modembyte (find-mactype :unsigned-byte))
  85. (def-mactype :batterybyte (find-mactype :unsigned-byte))
  86.  
  87. (def-mactype :pmresultcode (find-mactype :signed-long))
  88.  
  89. (def-mactype :sleepqrecptr (find-mactype :pointer))
  90. (defrecord SleepQRec 
  91.    (sleepQLink (:pointer :sleepqrec))
  92.    (sleepQType :signed-integer) ; type = 16
  93.    (sleepQProc :pointer)        ; Pointer to sleep routine
  94.    (sleepQFlags :signed-integer)
  95.    )
  96.  
  97. (deftrap _idleupdate nil
  98.    (:d0 :signed-long)
  99.    (:register-trap #xA285))
  100.  
  101.  
  102. (deftrap _getcpuspeed nil
  103.    (:d0 :signed-long)
  104.    (:register-trap #xA485 :d0 -1))
  105.  
  106. (deftrap _enableidle nil
  107.    (:d0 :signed-long)
  108.    (:register-trap #xA485 :d0 0))
  109.  
  110.  
  111. (deftrap _disableidle nil
  112.    nil
  113.    (:register-trap #xA485 :d0 1))
  114.  
  115. (deftrap _sleepqinstall ((qrecptr (:pointer :sleepqrec)))
  116.    nil
  117.    (:register-trap #xA28A :a0 qrecptr))
  118.  
  119. (deftrap _sleepqremove ((qrecptr (:pointer :sleepqrec)))
  120.    nil
  121.    (:register-trap #xA48A :a0 qrecptr))
  122.  
  123. (deftrap _aon nil
  124.    nil
  125.    (:register-trap #xA685 :d0 4))
  126.  
  127. (deftrap _aonignoremodem nil
  128.    nil
  129.    (:register-trap #xA685 :d0 5))
  130.  
  131. (deftrap _bon nil
  132.    nil
  133.    (:register-trap #xA685 :d0 0))
  134.  
  135. (deftrap _aoff nil
  136.    nil
  137.    (:register-trap #xA685 :d0 #x-84))
  138.  
  139. (deftrap _boff nil
  140.    nil
  141.    (:register-trap #xA685 :d0 #x-80))
  142.  
  143. ; $ENDC                         ;  UsingPower 
  144.  
  145. ; $IFC NOT UsingIncludes
  146.  
  147. ; $ENDC
  148.  
  149.  
  150. (export '($sleepqtype $slpqtype $norequest $nocalls $sleeprevoke $sleepwakeup
  151.           $sleepdemand $sleeprequest $connchangedmask $batterylowmask
  152.           $batterydeadmask $chargeoverflowmask $hichargemask $chargerconnmask
  153.           $connchangedbit $batterylowbit $batterydeadbit $chargeoverflowbit
  154.           $hichargebit $chargerconnbit $modemonhookmask $ringdetectmask
  155.           $modeminstalledmask $ringwakeupmask $modemonmask $modemonhookbit
  156.           $ringdetectbit $modeminstalledbit $ringwakeupbit $modemonbit))
  157. (provide-interface 'Power)
  158.